(shell-command-on-region): Start of region to keep is

min of endpoints, not max.

diff --git a/lisp/simple.el b/lisp/simple.el
index 5617efa773dbce319c75839b38cbfeccd440e4a2..829f39083d69e7688dec5d30b78c69912f3f12c3 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -894,7 +894,7 @@ In either case, the output is inserted after point (leaving mark after it)."
              ;; then replace that region with the output.
              (progn (setq buffer-read-only nil)
                     (delete-region (max start end) (point-max))
-                    (delete-region (point-min) (max start end))
+                    (delete-region (point-min) (min start end))
                     (call-process-region (point-min) (point-max)
                                          shell-file-name t t nil
                                          shell-command-switch command)